home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
clipper
/
nfsrc21.zip
/
PAGE.PRG
< prev
next >
Wrap
Text File
|
1991-08-15
|
3KB
|
112 lines
/*
* File......: PAGE.PRG
* Author....: Glenn Scott
* CIS ID....: 71620,1521
* Date......: $Date: 15 Aug 1991 23:05:18 $
* Revision..: $Revision: 1.3 $
* Log file..: $Logfile: E:/nanfor/src/page.prv $
*
* This is an original work by Glenn Scott and is placed in the
* public domain.
*
* Modification history:
* ---------------------
*
* $Log: E:/nanfor/src/page.prv $
*
* Rev 1.3 15 Aug 1991 23:05:18 GLENN
* Forest Belt proofread/edited/cleaned up doc
*
* Rev 1.2 14 Jun 1991 19:52:36 GLENN
* Minor edit to file header
*
* Rev 1.1 12 Jun 1991 02:29:14 GLENN
* Documentation mods and check for ft_int86() compatibility
*
* Rev 1.0 01 Apr 1991 01:01:58 GLENN
* Nanforum Toolkit
*
*/
#include "FTINT86.CH"
#define VIDEO 16
/* $DOC$
* $FUNCNAME$
* FT_SETVPG()
* $CATEGORY$
* Video
* $ONELINER$
* Set the current video page
* $SYNTAX$
* FT_SETVPG( <nPage> ) -> NIL
* $ARGUMENTS$
* <nMode> is a valid video page.
* $RETURNS$
* NIL
* $DESCRIPTION$
* Selects the video page.
*
* For more information on graphics programming and video pages,
* consult a reference such as "Programmer's Guide to PC and PS/2
* Video Systems" (Microsoft Press).
* $EXAMPLES$
* // The following sets the current video page to 1
*
* FT_SETVPG( 1 )
* $SEEALSO$
* FT_GETVPG()
* $END$
*/
FUNCTION FT_SETVPG( nPage )
LOCAL aRegs[ INT86_MAX_REGS ]
aRegs[ AX ] = MAKEHI( 5 ) + nPage
FT_INT86( VIDEO, aRegs )
RETURN( NIL )
/* $DOC$
* $FUNCNAME$
* FT_GETVPG()
* $CATEGORY$
* Video
* $ONELINER$
* Get the currently selected video page
* $SYNTAX$
* FT_GETVPG() -> <nPage>
* $ARGUMENTS$
* None.
* $RETURNS$
* The video page, as a numeric.
* $DESCRIPTION$
* Get the currently selected video page
*
* For more information on graphics programming and video pages,
* consult a reference such as _Programmer's Guide to PC and PS/2
* Video Systems_ (Microsoft Press).
*
* $EXAMPLES$
* nPage := FT_GETVPG()
* $SEEALSO$
* FT_SETVPG()
* $END$
*/
FUNCTION FT_GETVPG()
LOCAL aRegs[ INT86_MAX_REGS ]
aRegs[ AX ] := MAKEHI( 15 )
FT_INT86( VIDEO, aRegs )
RETURN ( HIGHBYTE( aRegs[ BX ] ) )